home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / COMBOX.ZIP / GLOBAL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-04-11  |  575 b   |  30 lines
  1. Unit Global;
  2.  
  3. Interface
  4.  
  5. const
  6.    rnMaskedField     = 6002;
  7.    rnIntegerField    = 6003;
  8.    rnLongintField    = 6004;
  9.    rnRealField       = 6005;
  10.    rnDateField       = 6006;
  11.    rnEnumeratorField = 6007;
  12.    rnFieldLabel      = 6008;
  13.  
  14.    rnMLValidator        = 7100;
  15.    rnIntegerValidator   = 7101;
  16.    rnRealValidator      = 7102;
  17.    rnDateValidator      = 7103;
  18.  
  19. type
  20.    TSmoker = ( Smoker, NonSmoker );
  21.  
  22.    TSex = ( Male, Female );
  23.  
  24.    TProvince = ( NS, NB, NFLD, PEI, QUE, ONT, MAN, SASK, BC );
  25.  
  26.    TJulianDate = longint;
  27.  
  28. Implementation
  29.  
  30. End.